home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / BULLETIN / 0716.ZIP / PROC.PRG < prev    next >
Text File  |  1987-06-09  |  1KB  |  81 lines
  1. **    Last revision: January 31, 1987 at 14:57
  2. * Program.: PROC.PRG
  3. * Author..: Stephen M. Leon
  4. * Date....: 01/19/87
  5. * Notice..: Copyright (c) 1987, Stephen M. Leon, All Rights Reserved
  6. * Version.: Clipper, Winter '85
  7. * NOTES...: This is the procedure file for BBDIR.PRG
  8.  
  9.  
  10. PROCEDURE M_Escape
  11. KEYBOARD chr(27)
  12. RETURN
  13.  
  14. PROCEDURE desktop
  15. * Paint the desktop pattern
  16. pattern = REPLICATE("░",80)
  17. @ 03,00 SAY pattern
  18. @ 04,00 SAY pattern
  19. @ 05,00 SAY pattern
  20. @ 06,00 SAY pattern
  21. @ 07,00 SAY pattern
  22. @ 08,00 SAY pattern
  23. @ 09,00 SAY pattern
  24. @ 10,00 SAY pattern
  25. @ 11,00 SAY pattern
  26. @ 12,00 SAY pattern
  27. @ 13,00 SAY pattern
  28. @ 14,00 SAY pattern
  29. @ 15,00 SAY pattern
  30. @ 16,00 SAY pattern
  31. @ 17,00 SAY pattern
  32. @ 18,00 SAY pattern
  33. @ 19,00 SAY pattern
  34. @ 20,00 SAY pattern
  35. @ 21,00 SAY pattern
  36. @ 22,00 SAY pattern
  37. @ 23,00 SAY pattern
  38. RETURN
  39.  
  40. PROCEDURE Nothing
  41. RETURN
  42.  
  43. FUNCTION M_Center
  44. PARAMETER temp
  45. RETURN(SPACE(40-(LEN(temp)/2-1))+temp)
  46.  
  47. FUNCTION ufunc
  48.  
  49. PARAMETERS mode,i
  50. PRIVATE cur_field
  51.  
  52. cur_field = fields[i]
  53. DO CASE
  54.    CASE mode = 0
  55.    @ 0,07 SAY "Record " + LTRIM(STR(RECNO()))
  56.    RETURN(1)
  57.    CASE mode < 4
  58.    RETURN(1)
  59.  
  60.    CASE LASTKEY() = 27
  61.    RETURN(0)
  62.  
  63.    CASE LASTKEY() = 13
  64.    @ ROW(), COL() GET &cur_field
  65.    READ
  66.    KEYBOARD CHR(4)
  67.  
  68.    RETURN(1)
  69.  
  70.    OTHERWISE
  71.    RETURN(1)
  72.    ENDCASE
  73.  
  74. ** [eof]
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.